home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh4x / sh45a.d64 / listing 20 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  342b  |  9 lines
  1. 10 PRINTCHR$(147):POKE 53280,5:POKE 53281,6
  2. 20 V=53248:POKE V+34,3
  3. 30 POKE 53269,4:POKE 2042,13
  4. 40 FOR N=0 TO 62:READ Q:POKE 832+N,Q:NEXT
  5. 100 DATA 255,255,255,128,0,1,128,0,1,128,0,1,144,0,1,144,0,1,144,0,1,144,0,1
  6. 101 DATA 144,0,1,144,0,1,144,0,1,144,0,1,144,0,1,144,0,1,128,0,1,128,0,1
  7. 102 DATA 128,0,1,128,0,1,128,0,1,128,0,1,255,255,255
  8. 200 X=200:Y=100:POKE 53252,X:POKE 53253,Y
  9.